home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 July / 1988-07.d64 / sys stamper (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  34 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 15 poke 53280,0:poke 53281,0:poke 646,5
  3. 20 dimby$(255):t=18:s=1:dn$="":z$=chr$(0)
  4. 30 print"[147]   copyright 1988 compute! pub., inc."
  5. 40 printtab(11)"all rights reserved":fori=1to1750:next
  6. 50 bl$="                                        ":bl$="[145]"+bl$+bl$+"[145][145]"
  7. 60 open15,8,15,"i0":gosub300:open5,8,5,"#"
  8. 70 print"[147]sys stamper  ";:print#15,"ua:"5;0;t;s:n=0
  9. 80 print#15,"b-p:"5;0:get#5,t$,s$:ifasc(t$+z$)=0thenprint"last sector";
  10. 90 print:print
  11. 100 fori=2to226step32:print#15,"b-p:"5;i
  12. 110 forj=itoi+18:get#5,by$(j):next:gosub300
  13. 120 print#15,"b-p:"5;i+28:get#5,by$(i+28),by$(i+29)
  14. 130 bl=asc(by$(i+28)+z$)+256*asc(by$(i+29)+z$)
  15. 140 if(asc(by$(i)+z$)and127)=0then170
  16. 150 n=n+1:bl(n)=bl:by(n)=i:print""n"[146][157]"bl(n),
  17. 160 fork=i+3toi+18step4:printby$(k)by$(k+1)by$(k+2)by$(k+3);:next:print
  18. 170 next:n=n+1:print:print""n"[146] = next sector":print""0"[146] = quit"dn$;
  19. 180 x=0:printbl$;:print"enter selection."
  20. 190 getx$:x=val(x$):ifx$<"0"orx$>"9"orx>nthen190
  21. 200 ifx=norx=0thenonx+1goto320:goto280
  22. 210 print""left$(dn$,x)x""dn$;
  23. 220 nv=-1:printbl$;:input"enter stamp";nv:nv=int(nv)
  24. 230 ifnv<0ornv>65535then270
  25. 240 hi=int(nv/256):lo=nv-hi*256:bl(x)=nv
  26. 250 print#15,"b-p:"5;by(x)+28:print#5,chr$(lo);chr$(hi);
  27. 260 print#15,"u2:"5;0;t;s:gosub300
  28. 270 print""left$(dn$,x)""x"[146][157]"left$(str$(bl(x))+"    ",6)""dn$;:goto180
  29. 280 t=asc(t$+z$):s=asc(s$+z$):ift=0thent=18:s=1
  30. 290 goto70
  31. 300 input#15,e,e$,et,es:ife=0thenreturn
  32. 310 print"error #"e"[157],"e$","et"[157],"es
  33. 320 close5:close15
  34.